unit oSink;

interface

uses oLogicalEntity, XMLIntf, oPedestrian,
 oPolygon, oEntityTypeConstants, oIstoreable;

type
  TSink = class(TLogicalEntity)
    private
    public
      farba : integer; //miso, pojde prec, iba docasne
      destructor Destroy; override;
      procedure SaveToXML(var paNode : Ixmlnode); override;
      procedure LoadFromXML(paNode : IXMLNode); override;
      procedure ExitPedestrian(paPedestrian : TPedestrian);
      constructor Create(paName : string; paId : integer); overload;
      constructor Create; overload;
  end;

implementation

uses SysUtils;

{ TSink }

constructor TSink.Create;
begin
   inherited Create;
   TypeLogic := ET_SINK_TYPE;
end;

constructor TSink.Create(paName: string; paId: integer);
var
  i : integer;
begin
  Create;
  inherited Create(paName, paId);
end;

destructor TSink.destroy;
begin
  inherited;
end;

procedure TSink.ExitPedestrian(paPedestrian: TPedestrian);
begin
  paPedestrian.Free;
end;

procedure TSink.LoadFromXML(paNode: IXMLNode);
begin
  inherited LoadFromXML(paNode.ChildNodes['log_entity']);
end;


procedure TSink.SaveToXML(var paNode: Ixmlnode);
var
  n1, n : IXMLNode;
begin
  n := paNode.AddChild('sink');
  inherited SaveToXML(n);
end;


end.
